#!c:/perl/bin/perl.exe
##########################################################################################################################
##### a script to add object permissions for Users of Wigan-Warriors.com
##########################################################################################################################

##########################################################################################################################
######  TODO list  #######################################################################################################
##########################################################################################################################
##########################################################################################################################

##########################################################################################################################
###### Bug list
##########################################################################################################################
##########################################################################################################################

##########################################################################################################################
# Includes
##########################################################################################################################

use lib qw(../cgi-bin);
use DBI;
use WiganRL;
use WiganRL::DataObject::Squad;


use strict;
#use warnings;
local $SIG{__WARN__} = \&Carp::cluck;  #full call back trace

$|++;  #unbuffered

##########################################################################################################################
# get arguments
##########################################################################################################################

my $season_id= 924230;
my $club_type= 'Professional';

#my $squad_name= 'First Team';
#my $squad_order= 1;
my $squad_name= 'Under 16s';
my $squad_order= 3;

#my $squad_name= 'Under 18s';
#my $squad_order= 3;
#my $squad_name= 'Academy';
#my $squad_order= 3;

##########################################################################################################################
# site setup and location variable declarations
##########################################################################################################################
my $cfg= WiganRL::DataObject->load_config('../cgi-bin/wiganrl.ini');

my $cgi= CGI::Simple->new();

my $dbh= Diva::DB->new();
$dbh->set( {
	DATABASE_NAME       => $cfg->val('database', 'DATABASE_NAME'),
	DATABASE_SERVER     => $cfg->val('database', 'DATABASE_SERVER'),
	DATABASE_USERNAME   => $cfg->val('database', 'DATABASE_USERNAME'),
	DATABASE_PASSWORD   => $cfg->val('database', 'DATABASE_PASSWORD'),
	DATABASE_TYPE       => $cfg->val('database', 'DATABASE_TYPE'),
	} );
$dbh->connect();
WiganRL::DataObject->dbh($dbh);
WiganRL::Search->dbh($dbh);
WiganRL::DataObject->init_class('WWCOM');  #loads contenttypes
WiganRL::DataObject->cgi($cgi);

WiganRL::DataObject->user(WiganRL::DataObject::User->new($cfg->val('site','SITE_ADMINUSER')));


##########################################################################################################################
# get teams
##########################################################################################################################
my $s= WiganRL::Search->new;
$s->table('CLUB');
$s->where("CLUB_TYPE = '$club_type'");

for my $club (@{$s->search}) {
	#check if squad exists
	$cgi->delete_all();
	my $s2= WiganRL::Search->new;
	$s2->table('SQUAD');
	$s2->where("FK_CLUB_ID=".$club->id." and FK_SEASON_ID=$season_id and SQUAD_ORDER=$squad_order
		and SQUAD_NAME='$squad_name'");
	my $res= $s2->search;
	if ($#$res<0) {
		$cgi->param('FK_CLUB_ID',$club->id);
		$cgi->param('SQUAD_ORDER',$squad_order);
		$cgi->param('SQUAD_NAME',$squad_name);
		$cgi->param('FK_SEASON_ID',$season_id);
		$cgi->param('UserID',12032);
		$cgi->param('ParentID','');
		my $s3= WiganRL::Search->new;
		$s3->table('SQUAD');
		$s3->where("FK_CLUB_ID=".$club->id." and SQUAD_ORDER=$squad_order and SQUAD_NAME='$squad_name' and not FK_STADIUM_ID=null");
		my $res2= $s3->search;
		if ($#$res2 > 0) {
			$cgi->param('FK_STADIUM_ID',$res2->[0]->param('FK_STADIUM_ID'));
		}
		my $o= WiganRL::DataObject::Squad->new;
		$o->update;
		print "\tAdded Squad: ".$o->id."\n\n";
	} else {
		print "\tFound Squad: ".$res->[0]->id."\n\n";    
	}
	
}
	

